home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / smooth scroller (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 60000 print"[147]reading data.....":ad=52941:for l=0 to 9:read a$:n=len(a$)/2-1
  2. 60010 for b=0 to n:v=0:for c=1 to 2:v=v*16+asc(mid$(a$,b*2+c,1))-65:next
  3. 60020 pokead,v:cs=255 and cs+b*v:ad=ad+1:next:read v
  4. 60030 ifv<>cs then print"data error in"peek(63)+256*peek(64):end
  5. 60040 next:sys53000
  6. 60050 poke53281,0:poke53280,0:for a=0 to 25:print:next
  7. 60060 for a=0 to 20:poke646,rnd(1)*15+1:printtab(10)"**soft-scroller v1.1**"
  8. 60070 printtab(10)"(c) 1989  jesper juul!":next
  9. 60080 print"disable: sys 53003":print"enable:  sys 53000"
  10. 60090 print"soft scroller v1.1 activated":end
  11. 60100 data emmpmpoicapaojoabilaamlnpbomifkmlfnkcamiojdaomcappojkcaalfnjcjhp,239
  12. 60110 data lenkbaacajiajfnjoioabinaopkfpbajiaifpbkfnjajiaifnjogngemccmpkjaa,123
  13. 60120 data inbknakjdhifabcabfpnkjabinaonmkjblinbbnagacaalmpkaaaiekoimijmpkj,168
  14. 60130 data kaifkplbkojbkominapjogkpkfkppaalmjmanaopkjoaifkpemdampkcfjkjokoa,158
  15. 60140 data bpjaadlnkomojnpmoimkbapbkjofinngpnknnkominnjomkncbnaincanakcaaio,12
  16. 60150 data aonmoikjikinbeadkjmpinbfadkjblinbbnakjadiniimpiobknagaadaaoobjna,47
  17. 60160 data kfabcjpnifabkjaainbcnakniimpajbienijmpinbbnaknijmppabkkninaccjab,183
  18. 60170 data nabdkoiimpmkikcjahiniimpmjadnaafkjaainijmpkniimpmjaglaademdbokem,78
  19. 60180 data ibokknijmpnaplkjaiinijmpknaonmcjabpaadcagkmpkniimpmjahnapjkjcfmn,215
  20. 60190 data bcnanaplembooj,116
  21.